General
df_superhotedges_april16pt %>%
merge(y = df_osm_edge_ids , using = way_id) %>%
ggplot(aes(x= track, fill = factor(address))) +
geom_histogram(binwidth = 45) +
facet_wrap(~type) +
scale_x_continuous(breaks = seq(0,400,45))+
ggtitle("Track histogram by type of street")


dens2 <-df_superhotedges_april16pt %>%
merge(y = df_osm_edge_ids, using = way_id) %>%
ggplot(aes(x= track)) +
geom_density(aes(group=factor(address), color=address)) +
ggtitle("Track density group by street type(WW)") +
xlab("Grades(º)") +
ylab("Density") +
facet_wrap(~type)
ggplotly(dens2)
We recommend that you use the dev version of ggplot2 with `ggplotly()`
Install it with: `devtools::install_github('hadley/ggplot2')`
We recommend that you use the dev version of ggplot2 with `ggplotly()`
Install it with: `devtools::install_github('hadley/ggplot2')`
the condition has length > 1 and only the first element will be usedthe condition has length > 1 and only the first element will be used
[[1]]

dens_hr2 <- function(index) { df_superhotedges_april16pt %>%
filter( way_id == df_osm_edge_ids[index,1] ) %>%
merge(y = df_osm_edge_ids, using = way_id) %>%
ggplot(aes(x= track)) +
geom_density(aes(group=factor(hour(time)), color=factor(hour(time)))) +
ggtitle(paste("Track density by edge and hour (WW)",df_osm_edge_ids[index,2],df_osm_edge_ids[index,1], sep = " " )) +
xlab("Grades(º)") +
ylab("Density")
}
lapply(1:7, FUN = dens_hr2)
[[1]]
[[2]]
[[3]]
[[4]]
[[5]]
[[6]]
[[7]]







dens_hr4 <- function(index) { df_superhotedges_april16pt %>%
filter(way_id == df_osm_edge_ids[index,1]) %>%
ggplot(aes(x=time, y = track, color = factor(session_id))) +
geom_point() +
ggtitle(paste("Tracks",df_osm_edge_ids[index,2],df_osm_edge_ids[index,1], sep = " " )) +
geom_hline(aes(yintercept = 90)) +
geom_hline(aes(yintercept = 180)) +
geom_hline(aes(yintercept = 270)) +
theme(legend.position="none")+
ggtitle(paste("Track points by edge and session(WW)",df_osm_edge_ids[index,2],df_osm_edge_ids[index,1], sep = " " )) +
xlab("date") +
ylab("track(º)")
}
lapply(1:7, FUN = dens_hr4)
[[1]]
[[2]]
[[3]]
[[4]]
[[5]]
[[6]]
[[7]]







dens_hr5 <- function(index) {df_superhotedges_april16pt %>%
filter(way_id == df_osm_edge_ids[index,1]) %>%
ggplot(aes(x=factor(session_id), y=track, color= factor(segment_id))) +
geom_boxplot(outlier.shape = NA)+
ggtitle(paste("Tracks",df_osm_edge_ids[index,2],df_osm_edge_ids[index,1], sep = " " )) +
geom_hline(aes(yintercept = 90)) +
geom_hline(aes(yintercept = 180)) +
geom_hline(aes(yintercept = 270)) +
theme(legend.position="none")+
ggtitle(paste("Median of the track by session and segments",df_osm_edge_ids[index,2],df_osm_edge_ids[index,1], sep = " " )) +
xlab("Grades(º)") +
ylab("Density")
}
lapply(1:7, FUN = dens_hr5)
[[1]]
[[2]]
[[3]]
[[4]]
[[5]]
[[6]]
[[7]]







With the way
dens_hr3 <- function(index) { df_superhotedges_april16pt %>%
filter( way_id == df_osm_edge_ids[index,1]) %>%
merge(y = df_osm_edge_ids, using = way_id) %>%
ggplot(aes(x= track)) +
geom_density(aes(group=factor(course), color=factor(course))) +
ggtitle(paste("Track density by edge and course (WW)",df_osm_edge_ids[index,2],df_osm_edge_ids[index,1], sep = " " )) +
xlab("Grades(º)") +
ylab("Density")
}
lapply(1:7, FUN = dens_hr3)
[[1]]
[[2]]
[[3]]
[[4]]
[[5]]
[[6]]
[[7]]







longer object length is not a multiple of shorter object lengthlonger object length is not a multiple of shorter object length
